(FILECREATED "31-DEC-75 15:48:29" <LENAT>M2.;1 647    


     changes to:  TAU FAC1 FACS M2COMS)


  (LISPXPRINT (QUOTE M2COMS)
	      T T)
  (RPAQQ M2COMS ((FNS TAU FAC1 FACS)))
(DEFINEQ

(TAU
  [LAMBDA (N)
    (APPLY (QUOTE ITIMES)
	   (MAPCAR (FACS N)
		   (QUOTE ADD1])

(FAC1
  [LAMBDA (N I J)
    (SETQ J (CAR (FNTH PRIMES I)))
    (COND
      ((ZEROP (REMAINDER N J))
	(SETQ N (IQUOTIENT N J))
	[RPLACA (FNTH FS I)
		(ADD1 (CAR (FNTH FS I]
	(FAC1 N I))
      ((ILESSP J N)
	(FAC1 N (ADD1 I])

(FACS
  [LAMBDA (N)
    (SETQ FS (FOR J FROM 1 TO N COLLECT 0))
    (FAC1 N 1)
    FS])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (188 623 (TAU 200 . 288) (FAC1 292 . 525) (FACS 529
. 620)))))
STOP